home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / ovrhan.com / TESTOVER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-09  |  935 b   |  37 lines
  1. program TestOverlayHandler;
  2. uses Overlay, OverlayHandler, Unit1, Unit2, Unit3;
  3. {.$O OverlayHandler}
  4. {$O Unit1 }
  5. {$O Unit2 }
  6. {$O Unit3 }
  7.  
  8. begin
  9.   OvrInit ('TESTOVER.OVR');
  10.   WriteLn('MemAvail=', MemAvail);
  11.   Unit3.test;
  12.   LoadOverlay(@Unit1.test);
  13.   WriteLn('ovrLoadResult=', ovrLoadResult);
  14.   WriteLn('MemAvail=', MemAvail);
  15.   LoadOverlay(@Unit2.test);
  16.   WriteLn('ovrLoadResult=', ovrLoadResult);
  17.   WriteLn('MemAvail=', MemAvail);
  18.   Unit1.test;
  19.   Unit2.test;
  20.   Unit3.test;
  21.   UnloadOverlay(@Unit2.test);
  22.   WriteLn('ovrLoadResult=', ovrLoadResult);
  23.   WriteLn('MemAvail=', MemAvail);
  24.   Unit3.test;
  25.   Unit2.test;
  26.   Unit1.test;
  27.   UnloadOverlay(@Unit1.test);
  28.   WriteLn('ovrLoadResult=', ovrLoadResult);
  29.   WriteLn('MemAvail=', MemAvail);
  30.   Unit3.test;
  31.   LoadOverlay(@LoadOverlay);
  32.   WriteLn('ovrLoadResult=', ovrLoadResult);
  33.   UnloadOverlay(@LoadOverlay);
  34.   WriteLn('ovrLoadResult=', ovrLoadResult);
  35. end.
  36.  
  37.